home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / directry.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-05-17  |  2.1 KB  |  66 lines
  1. 10  '     ***** Build DIRECTRY *****
  2. 20  '
  3. 30  '     Retrieve a diskette's directory
  4. 40  '       from within a BASIC program
  5. 50  '
  6. 60  '     Written by Howard Glosser
  7. 61  '     SOFTALK Magazine. January 1984. pp 124-128.
  8. 70  '
  9. 80  CLS
  10. 90  PRINT"Creating DIRECTRY subroutine....":PRINT
  11. 100  '
  12. 110  '    ** This sets up string location for subroutine **
  13. 120  '
  14. 130  DEF SEG
  15. 140  SUBRT$=STRING$(160,32)
  16. 150  SUBLC%=VARPTR(SUBRT$)
  17. 160  DRCT=PEEK(SUBLC%+1)+PEEK(SUBLC%+2)*256
  18. 170  LCN=DRCT
  19. 180  '
  20. 190  '    ** This builds the subroutine **
  21. 200  '
  22. 210  LINENO%=450
  23. 220  FOR STMT=1 TO 20
  24. 230    FOR MEM=1 TO 8
  25. 240      READ DT%
  26. 250      POKE LCN,DT%
  27. 260      CHECKSUM%=CHECKSUM%+DT%
  28. 270      LCN=LCN+1
  29. 280    NEXT
  30. 290    READ DT%
  31. 300    IF CHECKSUM%<>DT% THEN 410
  32. 310    LINENO%=LINENO%+10
  33. 320    CHECKSUM%=0
  34. 330  NEXT
  35. 340  '
  36. 350  '    ** This save the subroutine **
  37. 360  '
  38. 370  BSAVE"DIRECTRY.BIN",DRCT,&H9F
  39. 380  PRINT"DIRECTRY sunbroutine created."
  40. 390  END
  41. 400  '
  42. 410  PRINT"ERROR in DATA STATEMENT - Check line"LINENO%:END
  43. 420  '
  44. 430      ** DATA statements to build subroutine **
  45. 440  '
  46. 450  DATA &HEB,&H07,&H90,&H00,&H00,&H00,&H00,&H00,&H0182
  47. 460  DATA &H00,&H55,&H8B,&HEC,&H8B,&H5E,&H0E,&H8B,&H034E
  48. 470  DATA &H77,&H01,&H8B,&H04,&H35,&H40,&H00,&H8B,&H0207
  49. 480  DATA &H5E,&H0C,&H8B,&H7F,&H01,&H88,&H05,&H57,&H0259
  50. 490  DATA &H47,&HB0,&H3F,&HB9,&H0B,&H00,&HF3,&HAA,&H0397
  51. 500  DATA &H2E,&HC7,&H06,&H05,&H01,&H00,&H00,&H8B,&H018C
  52. 510  DATA &H5E,&H0A,&H8B,&H57,&H01,&H2E,&H89,&H16,&H0218
  53. 520  DATA &H03,&H01,&HB4,&H1A,&HCD,&H21,&H8B,&H5E,&H02A9
  54. 530  DATA &H08,&H2E,&H89,&H1E,&H07,&H01,&H2E,&HFF,&H0212
  55. 540  DATA &H06,&H07,&H01,&H5A,&HB4,&H11,&HCD,&H21,&H021B
  56. 550  DATA &H3C,&HFF,&H74,&H1A,&H2E,&HFF,&H06,&H05,&H0301
  57. 560  DATA &H01,&HE8,&H1F,&H00,&HB4,&H12,&HCD,&H21,&H02BC
  58. 570  DATA &H3C,&HFF,&H74,&H0A,&H2E,&HFF,&H06,&H05,&H02F1
  59. 580  DATA &H01,&HE8,&H0F,&H00,&HE2,&HEE,&H2E,&HA1,&H0397
  60. 590  DATA &H05,&H01,&H8B,&H7E,&H06,&H89,&H05,&H5D,&H0200
  61. 600  DATA &HCA,&H0A,&H00,&H2E,&H8B,&H1E,&H07,&H01,&H01B3
  62. 610  DATA &H8B,&H3F,&H83,&HC3,&H03,&H2E,&H89,&H1E,&H02E8
  63. 620  DATA &H07,&H01,&H2E,&H8B,&H36,&H03,&H01,&H46,&H0141
  64. 630  DATA &HB9,&H08,&H00,&HF3,&HA4,&HC6,&H05,&H2E,&H0351
  65. 640  DATA &H47,&HB9,&H03,&H00,&HF3,&HA4,&HC3,&H00,&H035D
  66.